home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / QCPROTO.DEF < prev    next >
Encoding:
Modula Definition  |  1993-12-26  |  742 b   |  28 lines
  1. (*# call(o_a_copy => off) *)
  2. (*%F _fdata *)
  3. (*# call(seg_name => null) *)
  4. (*%E *)
  5. (*# module(implementation=>on) *)
  6. (*# data(seg_name => null) *)
  7. DEFINITION MODULE QCproto;
  8.  
  9.                      (* This JPI Modula-2 module is part of *)
  10.  
  11.                       (* QC -- a communications program *)
  12.                              (* by Carl Neiburger *)
  13.                               (* 169 N. 25th St.*)
  14.                           (* San Jose, Calif. 95116 *)
  15.  
  16.                          (* CompuServe No. 72336,2257 *)
  17.  
  18. IMPORT NFIO;
  19.  
  20. PROCEDURE ChoosePath(VAR Name: NFIO.PathStr);
  21. (* Chooses download path if it exists and no other path is specified *)
  22.  
  23. PROCEDURE ReceiveProtocol;
  24.  
  25. PROCEDURE SendProtocol;
  26.  
  27. END QCproto.
  28.